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Apple /// Text File 
Case Converter 

by Mike Kramer 
Houston Area Apple Users 9 Group 



Having been an avid Apple II user for 
almost three years when I bought an 
Apple ///, I had come to know and love a 
number of good Applesoft BASIC pro- 
grams which I wanted to run under Apple 
/// Business BASIC. Before I had gather- 
ed up the courage to attempt any signifi- 
cant conversions, I was given a copy of 
Apple-CON (available from the IAC for 
$10). This program, which has been 
placed in the public domain by Apple 
Computer, reads an Applesoft program 
from a DOS disk, converts it to Business 
BASIC, and stores it on a SOS disk 
Unlike the old Integer BASIC to Applesoft 
converters on the Apple II, Apple-COM 
translates Applesoft syntax to Business 
BASIC syntax. The resulting program 
does usually require some cleanup to 
eliminate obscure PEEKs and POKEs or 
other code that Apple-CON cannot con- 
vert Lines containing such code are 
flagged with a preceding REM statement 
containing a row of dashes. 

One of many nice features of Apple /// 
Business BASIC is that keywords entered 
in lower case are converted to upper case 
when the program is listed. Hence the 
whole program can be typed in lower 
case and it will end up with variables in 
lower case and the BASIC commands in 
upper case. This proves particularly val- 
uable in verifying correct syntax, since 
incorrect commands are not converted 
to upper case. 

Since I had become accustomed to 
having lower case variable names, I was 
disappointed, but not surprised, to find 
that programs converted by Apple-CON 
retained whatever case was in the original 
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Applesoft program. Being lazy by nature 
and having better sense than to risk 
introducing errors by retyping the varia- 
ble names in lower case, I decided to write 
a program to convert the resulting Apple- 
CON text file to lower case. Then when 
the converted program was EXECd into 
memory, the variables would be lower 
case and the keywords in upper case. 
After finishing the first version of the 
program, I decided that optional conver- 
sion to upper case could be provided with 
little extra code. The program Text File 
Case Converter is the result 

How to Gse it 

The output file from Apple-CON or any 
other SOS text file can be converted 
either to upper case or to lower case. The 
disk containing the text file should be 
placed in one drive and the disk contain- 
ing Text File Case Converter in the other. 
If you wish, the source and target files can 
both be on the same disk Then Text File 
Case Converter should be RUN. 

The first question asked is whether the 
file is to be converted to upper case or to 
lower case. Either a "U" or an "L" is 
sufficient Next, you are asked for the 
pathname of the file to be converted. You 
may end execution by typing "END" or 
pressing RETURN, or you may list the 
directory by typing "CAT'. If you list the 
directory, you are again asked for the 
pathname of the file. The program will 
immediately attempt to OPEN the named 
file. If the file cannot be OPENed for any 
reason, you are asked to enter another 
name. Next you are asked for the path- 
name of the target file. You may optional- 
ly END or list the directory at this point If 



an improper pathname is entered, you 
will asked to enter another. 

Finally, you are asked if you also want 
the results listed on a display device. If 
your response is "YES" or " Y", you will be 
asked for an output device name. Initially 
the default is .CONSOLE. If you enter 
another device name, it will be the default 
on the next run. If the device specified has 
not been included in the SOS. DRIVER file 
on your boot disk you will be asked to 
enter another device name. If you have 
made it through all the dialogue, you will 
be rewarded with a text file containing the 
converted file. If you obtained the results 
on a list device you were able to see (with 
some sacrifice in execution speed) that 
the conversion was done as requested. 
To confirm that the conversion was done, 
fire up Apple Writer or some other text 
editor and look at the file. 

Listing 1 shows a short Applesoft pro- 
gram that was converted to Apple /// 
BASIC using Apple-CON. Since there 
were no particularly unusual commands 
in the Applesoft program, there is no 
difference in the code generated for the 
Apple ///. Listing 2 shows the same 
program after processing with Text File 
Case Converter. Note that all BASIC 
keywords in Listing 1 are in upper case. 
Note also that you may have to go back 
and manually change some characters in 
the resulting program to upper case. 

By the way, the program in Listing 1 (or 
2) is a good example of the Shell-Metzner 
sorting technique which you may want to 
add to your library. It allows entry of up to 
20 names (first and last), breaks the 
name into first and last names (provided 
there is an intervening space), sorts on 
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last names, and lists the names as en- 
tered and in sorted order. 

How the Case Converter Works 

Text File Case Converter is actually a 
simple program, consisting of a loop that 
reads a line from one TEXT file, steps 
through the line looking at each charac- 
ter for alpha characters to convert, per- 
forms the conversion, and writes the 
resulting line to another TEXT file. The 



rest of the program is dialog with the user 
and error handling. The following com- 
ments describe how the program works. 

Lines 260-300: Perform some initializa- 
tion and display the title block, setting a 
window to leave it on the screen. 

Line 310: Determine if the file is to be 
converted to all upper case or all lower 
case. 
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Listing 1 
After APPLECON 

REM SORT DEMO 

REM WRITTEN BY MIKE KRAMER 

REM 1/1/83 

DIM R(20) ,G*(20,2) 

TEXT: HOME 

NR=1 

PRINT: INPUT "NAME: ";NA*: IF NA*="" OR NR=20 THEN 250 

NR=NR+ 1 : R ( NR- 1 ) =NR- 1 

FLA6=0 

FOR J=l TO LEN(NA*> 

IF MID*<NA*,J,1>=CHRS<32> THEN BS (R (NR-1 ) , 1 ) =LEFT* (NA* 
NEX T : J * * R * 1 } ' 2 } =R 1 GHT * * ' ( NA * } ' J } = FL A6= 1 
PACE" A6=0 PRINT:PRINT " ENTER FIRST & LAST NAME WITH S 

SOTO 160 
REM SORT FILE 
M=NR-1 

M=INT(M/2) :IF M=0 THEN 330 

L=l 

I=L 

IF G*(R(I),2X=6$(R<I+M),2) THEN 310 

x=r<d :r<i>=r<i+m> :r<i+m)=x: i=i-m: if 

L=L+l:lF LXNR-M-1) THEN 260 
GOTO 280 
FOR J=l TO NR-1 

NExT t3 * <J ' 1>; " ,, 5 B *<^2>,G*<R<J),1);« » ; G* (R ( J ) , 2) 



I>=1 THEN 290 



Listing 2 
A-fter TEXT FILE CASE CONVERTER 

REM sort demo 

REM written by mike kramer 

REM 1/1/83 

DIM r (20) ,g*<20,2> 

TEXT: HOME 

nr=l 

PRINT: INPUT"name: ";na*: IF na$="» OR nr=20 THEN 250 
nr=nr+l:r(nr — l)=nr-l 
f 1 ag=0 

FOR j=l TO LEN (na$) 

IF MID*(na*, j , 1 ) =CHR* (32) THEN g* (r (nr-1 ) , 1 ) =LEFT* (na$, 
J-^ : 9* (r <nr-l) ,2)=RIGHT»(na*,LEN(na*)-j) :f lag=l 

IF flag=0 THEN PR I NT : PR I NT " en t er first & last name with s 

pace" 

GOTO 160 

REM sort file 

m=ni — 1 

m=INT (m/2) : IF m=0 THEN 330 

1 = 1 

i=l 

IF g«(r (i) ,2)<=g*(r (i+m) ,2) THEN 310 

x=r (i) :r (i)=r(i+m) :r (i+m)=x:i=i-m: IF i >=1 THEN 290 

1=1+1: IF l>(nr-m-l) THEN 260 

GOTO 280 

FOR j=l TO nr-1 

PRINT g*(j,l);- ";g*(j,2),g*(r(j),l);" ";g*(r(j),2) 



Lines 390-41 0: Get pathname of the fiie 
to be converted, list directory, or END. 

Lines 420-440: Set variable "which$" to 
indicate to error routine where error oc- 
curred, set up for branch to error routine, 
and OPEN file to be converted. 

Lines 520-560: Get pathname of destina- 
tion file as done above for source file and 
OPEN file. 



Lines 640-700: See if converted text is 
also to be listed on display device. Default 
is initially .CONSOLE, although the next 
run will use the last device name entered 
When RETURN is pressed, the cursor is 
positioned in the proper line and the 
device name is output Line 690 assures 
correct positioning of device name if the 
cursor is on the bottom line of the screen 
when RETURN is pressed. Line 700 
OPENs the device for output 

Lines 780-790: Prepare to continue exe- 
cution at Line 1040 when the end of the 
file is reached. INPUT line of text from the 
file to be converted. 

Lines 870-880: Initialize temporary string 
variables to null. Determine whether to 
convert to upper case or lower case and 
set conversion variables accordingly. 

Lines 890-920: Convert to selected. Step 
through each character of the line read 
from the file. If the conversion is to lower 
case and the character's ASCII code is in 
the range 65 through 90 (A-Z) subtract 
32 to convert to lower case. If the conver- 
sion is to upper case and the character's 
ASCII code is in the range 97 through 
122 (A-Z) add 32 to convert to upper 
case. Concatenate characters into new 
string "temp$". 

Lines 1000-1030: Output converted line 
to destination file and to the optional 
display device. Return to Line 790 to read 
another line. 

Line 1160: CLOSE the files and the 
optional display device. 

Lines 1 120-1 130 See if another conver- 
sion is wanted. If not, reset the window, 
clear screen, and END. 

Lines 1210-1350: Check for error condi- 
tions and set up proper error message. If 
none of conditions in Lines 1210 - 1330 
exists then display error code and line 
number and END. If one of these condi- 
tions exists, display message and return 
to appropriate line according to current 
value of "which$'\ 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
bell*: 



Listing 3 
TEXT FILE CASE CONVERTER 

** 

Text File Case Converter *# 

** 

Written by Mike Kramer ** 
Houston Area Apple Users Group ** 
^ 12/27/82 ** 



** 
** 
** 
** 
** 
** 



■*****■*•*-* 



*************************** 
** 

** 



********♦*****.*.***** 
** 

Print Title Block ** 



=CHR*<7> :blank*=" 



170 



290 
300 
310 



320 
330 
340 
350 
360 
370 
380 
390 

400 

410 

420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 

530 

540 

550 
560 
570 
580 
590 
600 
610 
620 
630 
640 



650 

660 
670 
680 
690 
700 



ce*=" . CONSOLE" " = out ? ut • dev * 

pie Users Group ***": NORMAL 

WINDOW 0,6 TO 80,24 
H0ME:VP0S=2 

INPUT-Convert file to upper case or lower case*? ";case*-c 

S^SSiW flND « — 

REM 
REM 

REM ** 

REM* ** ^ Name ° f File tD Be Converted 

REM ***********************************»» < ^^^^„^ # ** 

PRINT: INPUT"Pathname of text file to be converted, CAT, E 
ND: "; source, pathname* ' ' 11 

IF source. pathname*="CAT" OR source. pathname*="cat - OR *o 
urce.pathname*="Cat" THEN CATALOG: GOTO 390 

IF source. pathname*="" OR source. pathname*=»END" OR sourc 
ii P c^~"? d " ° R — .pathname*^" THEN 
ON ERR GOSUB 1210 

OPEN#l AS INPUT, source. pathname* 
REM 

REM *********************************************** 
** Get Na "« of Output File ** 

PRINT: INPUT-Pathname of target text file, CAT, END: " ; tar 
get . pathname* 

IF target. pathname*="CAT» OR target . pathname*="cat " OR ta 
rget.pathname*="Cat" THEN CATALOG: GOTO 520 

IF target. pathname*="» OR target . pathname*="END" OR tarqe 
t.pathname*="End" OR target . pathname*="end » THEN 1130 
which*= "target" "~ ' 

OPEN#2 AS OUTPUT, target. pathname* 
REM 

REM ** ****************♦♦»**♦*♦# 

** 

REM ** Ge * Name of Hardcopy Device ** 

REM ** ^ 

PRINT: PR INT "Li st program lines on output device? (Y/N) »; 
:GET yes.or.no*:PRINT yes. or . no*: IF yes. or . no*<>" Y" AND y 
es.or.no*<>"y" THEN 780 Y 
PRINT: vtab= VPOS:PRINT"Pathname for output: "; output . devi 
ce*; :HP0S=22: INPUT" '^response* P 
IF response*="" THEN 690 
output . devi ce*=response* 
which*=" display" 

VPOS=vtab-l* ( vtab=19) : HP0S=22: PRINT output . devi ce* 
0PEN#3 AS OUTPUT, output. device* 
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Listing 3 continued 



710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 



830 
840 
850 
860 
870 



890 
900 



910 
920 
930 
940 
950 
960 
970 



990 
1000 

1010 
1020 
1030 
1040 
1050 
1060 
1070 



1090 
1100 
1110 
1120 

1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 

1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 

1350 



Read Lines of Text From Source File 



If Alpha Convert to Proper Case 



REM 
REM 
REM 
REM 
REM 

REM **************************************+**+***+*. 
REM 

ON EOF#l GOTO 1040 
INPUT#l5line* 
REM 

REM *********************************************** 
REM ** . 
REM 
REM 
REM 
REM 

temp*- ,, • , :c*= ,,,, 

IF case$«-L" OR case*="l» THEN lower .cod e=65: upper. code=9 
0: del ta=32: ELSE 1 ower . code=97: upper . code=122: del ta=-32 
FOR i = l TO LENUine*) 

IF ASC <MID*(line*,i,l))>=lower. code AND ASC (MID* ( 1 i ne$, 

i,l> X^upper.code THEN c*=CHR* (ASC (MID* <1 ine«, i , 1 > ) +del 

ta) : ELSE c*=MID*(line*,i,l) 

te*p*=temp*+c* 

NEXT i 
REM 
REM 

REM ** ^ 

REM ** Output to Specified Destination (s) ** 

REM 
REM 
REM 

IF yes.or.no$="n" OR yes.or.no*="N" OR yes.or.no*= 
N 1020 

PRINT#3;temp* 
PRINT#2;temp* 
GOTO 790 
CLOSE 
REM 
REM 
REM 

REM ** Check if Another Conversion Wanted 

REM ♦* 



THE 



** 



************************************************ 



Error Handling 



REM 

REM 

PR I NT: PR I NT "Another conversion? (Y/N) ";:6ET yes.or.no*: 
IF yes.or.no*="Y" OR yes. or. no*="y" THEN 300 
TEXT: HOME: END 
REM 
REM 

REM ** 
REM ** 
REM ** 
REM 
REM 

IF ERR=23 THEN message*="Fi les Busy": GOTO 1350 

IF ERR=25 THEN message*=" I/O Error": GOTO 1350 

IF ERR=26 THEN message*="Fi 1 e Too Large" : GOTO 1350 

IF ERR=27 THEN message*="Di sk is Write Protected" : GOTO 1 

350 

IF ERR=29 THEN message*="Bad Path": GOTO 1350 

IF ERR=30 THEN message*="Fi le Not Found": GOTO 1350 

IF ERR=31 THEN message*="Path Not Found": GOTO 1350 

IF ERR=32 THEN message*=" Volume Not Found": GOTO 1350 

IF ERR=33 THEN message*- "Dupl icate File": GOTO 1350 

IF ERR=34 THEN message*="Di sk Full":GOTO 1350 

IF ERR=35 THEN message*="Fi 1 e Locked" : GOTO 1350 

IF ERR=36 THEN message*="Fi 1 e Not Open": GOTO 1350 

IF ERR=37 THEN message*=" Device Not Found": GOTO 1350 

HOME:VPOS=12:HPOS=30:PRINT"Error "; ERR; " in Line "; ERR 

LIN: TEXT: END 

PRINT: PRINT bell*;:PRINT"*» "; message*;" **":P0P:IF whic 
h*=" source" THEN 390: ELSE IF whi ch*=" target " THEN 520: EL 
SE 650 
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